home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / CC.LSP < prev    next >
Text File  |  1992-09-13  |  763b  |  23 lines
  1. ;Change Color
  2. ;
  3. ;
  4. (Defun c:cc(/ a c d)
  5. (setq oer   *error*  *error*  err2)
  6. (graphscr)
  7. (prompt "\nSelect object to be changed...")
  8. (setq a(ssget))
  9. (if a(progn
  10. (initget 1 "R B C G M Y W L r b c g m y w l")
  11. (setq c(getkword "\nselect.(R)ed.(B)lue.(C)yan.(G)reen.(M)agenta.(Y)ellow.(W)hite.by(L)ayer"))
  12. (if(or(= c "R")(= c "r"))(setq d '"red"))
  13. (if(or(= c "B")(= c "b"))(setq d '"blue"))
  14. (if(or(= c "C")(= c "c"))(setq d '"cyan"))
  15. (if(or(= c "G")(= c "g"))(setq d '"green"))
  16. (if(or(= c "M")(= c "m"))(setq d '"magenta"))
  17. (if(or(= c "Y")(= c "y"))(setq d '"yellow"))
  18. (if(or(= c "W")(= c "w"))(setq d '"white"))
  19. (if(or(= c "L")(= c "l"))(setq d '"bylayer"))
  20. (command "change" a "" "prop" "c" d "")))
  21. (princ))
  22. (princ "\nType CC to change color.")
  23.